home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3ar.arc / EDITACC.PRG < prev    next >
Encoding:
Text File  |  1985-10-15  |  711 b   |  42 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. ****************************** (EDITACC.PRG)
  4. CLEAR
  5. USE B:CUST
  6. SET EXACT ON
  7. SET TALK OFF
  8. SET CONFIRM ON
  9. TYPE B:LINE.TXT
  10. DO WHILE .T.
  11. @ 18,22 SAY 'Do you want to edit an account?'
  12. ?
  13. ?
  14. STORE ' ' TO OPTION
  15. WAIT '                                    ? 'TO OPTION
  16. IF OPTION='N'
  17. RETURN
  18. ENDIF
  19. CLEAR
  20. ACCEPT '                         Please enter account number ' TO X
  21. IF X='     '
  22. RETURN
  23. ENDIF
  24. IF OPTION='Y'
  25. LOCATE FOR ACCT=X
  26. IF EOF()
  27. LOOP
  28. ENDIF EOF()
  29. STORE RECNO() TO RECNO
  30. ?
  31. @ 4,25 SAY 'Enter Ctrl W when finished...'
  32. ?
  33. ?
  34. SET FORMAT TO B:CUSTEDIT.FMT
  35. SET CONFIRM ON
  36. EDIT RECNO
  37. @ 2,0 CLEAR
  38. CLOSE FORMAT B:CUSTEDIT.FMT
  39. SET CONFIRM OFF
  40. ENDDO
  41. RETURN
  42.